package Model::CategoriesDao;

sub new
{
    my $class = shift;
    my $self = {
        _dbx => shift,
    };
	# The object reference is created by blessing a reference to the package's class. 
    bless $self, $class;
    return $self;
}

sub testDBX 
{
	my ($self) = @_;
	my $dbx = $self->{dbx};
	$dbx{'test'}->select({ 
		fields => 'id',
		table => 'wae03_categories',
	}); 
	$dbx{'test'}->fetchrow_hashref();
}

1;